object TableForm: TTableForm
  Left = 0
  Top = 0
  VertScrollBar.Increment = 24
  VertScrollBar.Style = ssHotTrack
  VertScrollBar.Tracking = True
  Caption = 'TableForm'
  ClientHeight = 287
  ClientWidth = 466
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object splFilter: TSplitter
    Left = 0
    Top = 259
    Width = 466
    Height = 3
    Cursor = crVSplit
    Align = alBottom
    ExplicitLeft = 8
    ExplicitTop = 248
  end
  object DGrid: TDBGrid
    Left = 0
    Top = 25
    Width = 466
    Height = 234
    Align = alClient
    DataSource = DSource
    DrawingStyle = gdsGradient
    GradientEndColor = clSkyBlue
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
    ParentFont = False
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = [fsBold]
    OnDblClick = DGridDblClick
    OnTitleClick = DGridTitleClick
  end
  object pnTop: TPanel
    Left = 0
    Top = 0
    Width = 466
    Height = 25
    Align = alTop
    TabOrder = 1
    object btAppend: TButton
      Left = 4
      Top = 1
      Width = 63
      Height = 21
      Caption = #1044#1086#1073#1072#1074#1080#1090#1100
      TabOrder = 0
      OnClick = btAppendClick
    end
    object btDelete: TButton
      Left = 73
      Top = 1
      Width = 63
      Height = 21
      Caption = #1059#1076#1072#1083#1080#1090#1100
      TabOrder = 1
      OnClick = btDeleteClick
    end
    object btExport: TButton
      Tag = 2
      AlignWithMargins = True
      Left = 397
      Top = 2
      Width = 65
      Height = 21
      Margins.Top = 1
      Margins.Bottom = 1
      Align = alRight
      Caption = #1069#1082#1089#1087#1086#1088#1090
      DropDownMenu = pmExport
      Style = bsSplitButton
      TabOrder = 2
      OnClick = mnExportClick
      ExplicitLeft = 400
      ExplicitTop = 1
      ExplicitHeight = 23
    end
  end
  inline FilterMgr: TFilterMgrFrame
    Left = 0
    Top = 262
    Width = 466
    Height = 25
    Align = alBottom
    TabOrder = 2
    ExplicitTop = 262
    ExplicitWidth = 466
    inherited pnFilter: TScrollBox
      Width = 466
      ExplicitWidth = 466
      inherited pnFilterTools: TPanel
        Width = 462
        ExplicitWidth = 462
      end
    end
  end
  object DSource: TDataSource
    DataSet = DSet
    Left = 392
    Top = 46
  end
  object DSet: TIBDataSet
    Database = fmDatabase.IBDatabase
    Transaction = fmDatabase.IBTransaction
    AfterTransactionEnd = DSetAfterTransactionEnd
    Left = 336
    Top = 48
  end
  object ExcelExport: TJvDBGridExcelExport
    Caption = 'Exporting to MS Excel...'
    Grid = DGrid
    Close = scAlways
    AutoFit = True
    Left = 361
    Top = 96
  end
  object pmExport: TPopupMenu
    AutoPopup = False
    TrackButton = tbLeftButton
    Left = 224
    Top = 152
    object mnExcel: TMenuItem
      Caption = 'Excel'
      OnClick = mnExportClick
    end
    object mnHTML: TMenuItem
      Tag = 1
      Caption = 'HTML'
      OnClick = mnExportClick
    end
    object mnODF: TMenuItem
      Tag = 2
      Caption = 'Open Document'
      OnClick = mnExportClick
    end
  end
  object SaveDialog: TSaveDialog
    Left = 400
    Top = 152
  end
  object jvHTMLExport: TJvDBGridHTMLExport
    Caption = 'Exporting to HTML...'
    Grid = DGrid
    FileName = 'test.html'
    Header.Strings = (
      '<html><head><title><#TITLE></title>'
      '<style type=text/css>'
      '#STYLE'
      '</style>'
      '</head><body>')
    Footer.Strings = (
      '</body></html>')
    DocTitle = 'Grid to HTML Export'
    Left = 240
    Top = 96
  end
end
